home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / crmuspl.dir / 00021_Script_Kadin Handler < prev    next >
Text File  |  1996-05-26  |  2KB  |  96 lines
  1. on openX
  2.   global xobjPath
  3.   if the machinetype = 256 then
  4.     set xobjPath = the pathName & "XObjs\" -- PC
  5.   else
  6.     set xobjPath = the pathName & "XObjs:" -- Mac
  7.   end if
  8.   
  9. end
  10.  
  11.  
  12. on startMovie
  13.   setAuxiliarySearch
  14.   global xobjPath
  15.   openX
  16.   
  17.   if the machineType = 256 then CreateMemoryObj
  18.   
  19.   if the machineType = 256 then openxlib xobjPath & "Fill.DLL"
  20.   else openxlib xobjPath & "FillXObj"
  21.   
  22.   allocateXObject
  23.   
  24.   
  25. end startMovie
  26.  
  27. on stopMovie
  28.   global xobjPath
  29.   disposeXObject
  30.   if the machineType = 256 then closexlib xobjPath & "Fill.DLL"
  31.   else closexlib xobjPath &"FillXObj"
  32.   
  33.   if the machineType = 256 then KillMemoryObj
  34.   
  35.   
  36.   
  37. end stopMovie
  38.  
  39. ------------- FOR PC ONLY
  40.  
  41. on CreateMemoryObj
  42.   global memoryObj,xobjPath     -- for PC only
  43.   openxlib xobjPath & "Memory.DLL"
  44.   
  45.   if objectP(memoryObj) then memoryObj(mDispose)
  46.   set memoryObj = Memory(mNew)
  47. end CreateMemoryObj
  48.  
  49. on KillMemoryObj
  50.   global memoryObj,xobjPath
  51.   
  52.   if objectP(memoryObj) then memoryObj(mDispose)
  53.   closexlib  xobjPath &"Memory.DLL"
  54. end KillMemoryObj
  55.  
  56.  
  57. on updateDisplay
  58.   
  59.   getRGBList
  60.   getColorCheck
  61.   
  62. end updateDisplay
  63.  
  64.  
  65.  
  66. on allocateXObject
  67.   global fillObject, objectStatus
  68.   if objectP(fillObject) then fillObject(mDispose)
  69.   set fillObject = Fill(mNew, the left of sprite 1, the top of sprite  1, the ¼
  70. right of sprite 1, the bottom of sprite 1)
  71.   
  72. end allocateXObject
  73.  
  74. on disposeXObject
  75.   global fillObject, objectStatus
  76.   if objectP(fillObject) then fillObject(mDispose)
  77.   
  78. end disposeXObject
  79.  
  80.  
  81. on closeWindow
  82.   stopmovie
  83.   tell the stage to cleanUpMIAW
  84. end closeWindow
  85.  
  86.  
  87.  
  88. on getRGBList
  89.   global RGBList
  90.   set Red = string( fillObject(mGetRedColor, the mouseH, the mouseV))
  91.   set Green = string( fillObject(mGetGreenColor, the mouseH, the mouseV))
  92.   set Blue = string( fillObject(mGetBlueColor, the mouseH, the mouseV))
  93.   set RGBList = [Red,Green,Blue]
  94.   put RGBList into field "RGB"
  95. end
  96.